home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / STALINE.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-11-20  |  1.6 KB  |  133 lines
  1. ; :ts=10
  2.  
  3.     dseg
  4.     public _aline
  5.     public _contrl
  6.     public _intin
  7.  
  8.  
  9.  
  10.     cseg
  11.  
  12.     public _ainit
  13. _ainit:
  14.     move.l A2,-(A7)
  15.     dc.w $a000
  16.     move.l (A7)+,A2
  17.     move.l A0,D0
  18.     rts
  19.  
  20.     public _aput
  21. _aput:
  22.     dc.w $a001
  23.     rts
  24.  
  25.     public _aget
  26. _aget:
  27.     dc.w $a002
  28.     rts
  29.  
  30.  
  31.     public _aaline
  32. _aaline:
  33.     move.l A2,-(A7)
  34.     dc.w $a003
  35.     move.l (A7)+,A2
  36.     rts
  37.  
  38.  
  39.     public _ahline
  40. _ahline:
  41.     move.l A2,-(A7)
  42.     dc.w $a004
  43.     move.l (A7)+,A2
  44.     rts
  45.  
  46.  
  47.     public _acblock
  48. _acblock:
  49.     move.l A2,-(A7)
  50.     dc.w $a005
  51.     move.l (A7)+,A2
  52.     rts
  53.  
  54.  
  55.     public _apoly
  56. _apoly:
  57.     move.l A2,-(A7)
  58.     dc.w $a006
  59.     move.l (A7)+,A2
  60.     rts
  61.  
  62.  
  63.     public _ablit
  64. _ablit:
  65.     movem.l A2/A6,-(A7)
  66.     move.l 12(A7),A6
  67.     dc.w $a007
  68.     movem.l (A7)+,A2/A6
  69.     rts
  70.  
  71.  
  72.  
  73.  
  74.     public _atextblt
  75. _atextblt:
  76.     move.l A2,-(A7)
  77.     dc.w $a008
  78.     movem.l (A7)+,A2
  79.     rts
  80.  
  81.  
  82.     public _ashow_mouse
  83. _ashow_mouse:
  84.     move.l A2,-(A7)
  85.     dc.w $a009
  86.     movem.l (A7)+,A2
  87.     rts
  88.  
  89.  
  90.     public _ahide_mouse
  91. _ahide_mouse:
  92.     move.l A2,-(A7)
  93.     dc.w $a00a
  94.     movem.l (A7)+,A2
  95.     rts
  96.  
  97.     public _atmouse
  98. _atmouse:
  99.     move.l A2,-(A7)
  100.     dc.w $a00b
  101.     movem.l (A7)+,A2
  102.     rts
  103.  
  104.     cseg
  105.     public _vdi
  106.  
  107.     public _v_regf
  108. _v_regf
  109. firstp    set    4+4*4
  110. handle    set    firstp
  111. fontheader set    firstp+2
  112. buffer    set    firstp+6
  113. halfsize    set    firstp+10
  114. vrfregs    reg    a2/a3/d2/d3
  115.     movem.l    vrfregs,-(sp)
  116.     move.l    #_contrl,a2
  117.     move.w    halfsize(sp),18(a2)
  118.     move.l    buffer(sp),14(a2)
  119.     move.l    fontheader(sp),20(a2)
  120.     move.w    handle(sp),12(a2)
  121.     move.w    #0,2(a2)    ;number of vertices
  122.     move.w    #1,6(a2)    ;length of intin array
  123.     move.w    #119,0(a2) ;VDI function opcode
  124.     move.l    #_intin,a2
  125.     move.w    #0,(a2)    ;reserved (always 0)
  126.     jsr    _vdi
  127. endi
  128.     movem.l    (sp)+,vrfregs
  129.     rts
  130.  
  131.  
  132.  
  133.